﻿
'Author: Jawad Najim
' Date : 04/08/2012

Public Class User
    Private aUserID As String
    Private aLName As String
    Private aFName As String
    Private aStreetAddress As String
    Private aCity As String
    Private aState As String
    Private aZip As Integer
    Private aEmail As String
    Private aTypeID As Integer

    Public Sub New()
        aUserID = ""
        aLName = ""
        aFName = ""
        aStreetAddress = ""
        aCity = ""
        aState = ""
        aZip = 0
        aEmail = ""
        aTypeID = 0
    End Sub
    Public Sub New(ByVal userid As String, _
                   ByVal firstName As String, _
                   ByVal lastName As String, _
                   ByVal StreetAddress As String, _
                   ByVal City As String, _
                   ByVal state As String, _
                   ByVal zipcode As Integer, _
                   ByVal email As String, ByVal typeid As Integer)

        aLName = lastName
        aFName = firstName
        aStreetAddress = StreetAddress
        aCity = City
        aState = state
        aZip = zipcode
        aEmail = email
        aUserID = userid
        aTypeID = typeid
    End Sub


    Public Property UserID() As String
        Get
            Return aUserID
        End Get
        Set(ByVal value As String)
            aUserID = value
        End Set
    End Property
    Public Property LastName() As String
        Get
            Return aLName
        End Get
        Set(ByVal value As String)
            aLName = value
        End Set
    End Property

    Public Property FirstName() As String
        Get
            Return aFName
        End Get
        Set(ByVal value As String)
            aFName = value
        End Set
    End Property

    Public Property StreetAddress() As String
        Get
            Return aStreetAddress
        End Get
        Set(ByVal value As String)
            aStreetAddress = value
        End Set
    End Property

    Public Property City() As String
        Get
            Return aCity
        End Get
        Set(ByVal value As String)
            aCity = value
        End Set
    End Property

    Public Property State() As String
        Get
            Return aState
        End Get
        Set(ByVal value As String)
            aState = value
        End Set
    End Property

    Public Property ZipCode() As Integer
        Get
            Return aZip
        End Get
        Set(ByVal value As Integer)
            aZip = value
        End Set
    End Property

    Public Property Email() As String
        Get
            Return aEmail
        End Get
        Set(ByVal value As String)
            aEmail = value
        End Set
    End Property

    Public Property TypeID As Integer
        Get
            Return aTypeID
        End Get
        Set(value As Integer)
            aTypeID = value
        End Set
    End Property
End Class
